home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MP-DOOM.ZIP / MPGS.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-01-22  |  5.8 KB  |  335 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     STRING002 = Modem()
  37.     :LABEL001
  38.     GetUser
  39.     Cls
  40.     If (Exist(PPEPath() + "WELCOME.MSG")) Then
  41.         DispFile PPEPath() + "WELCOME.MSG", 0
  42.     Else
  43.         PrintLn "WELCOME.MSG FILE NOT FOUND!"
  44.     Endif
  45.     PrintLn "@X00@X07  MODEM REPORTS: @X0C" + STRING002 + "@XFF"
  46.     Print "@X08  v1.30 @X00@X0E  Command ?@XFF"
  47.     :LABEL002
  48.     STRING003 = Upper(Inkey())
  49.     While (InStr("HRQGTA*", STRING003) == 0) Do
  50.         Goto LABEL002
  51.     EndWhile
  52.     Select Case (STRING003)
  53.         Case "H"
  54.             Goto LABEL003
  55.         Case "R"
  56.             Goto LABEL004
  57.         Case "Q"
  58.             Goto LABEL013
  59.         Case "G"
  60.             Goto LABEL007
  61.         Case "T"
  62.             Goto LABEL005
  63.         Case "A"
  64.             Goto LABEL006
  65.         Case "*"
  66.             Goto LABEL008
  67.     End Select
  68.     End
  69.     :LABEL003
  70.     Cls
  71.     If (Exist(PPEPath() + "HELP.MSG")) Then
  72.         DispFile PPEPath() + "HELP.MSG", 0
  73.     Else
  74.         DefColor
  75.         Cls
  76.         PrintLn "HELP.MSG file NOT FOUND!"
  77.         PrintLn "PLEASE NOTIFY the SYSOP!"
  78.         Newline
  79.     Endif
  80.     Wait
  81.     Goto LABEL001
  82.     :LABEL004
  83.     Cls
  84.     If (Exist(PPEPath() + "RULES.MSG")) Then
  85.         DispFile PPEPath() + "RULES.MSG", 0
  86.     Else
  87.         DefColor
  88.         Cls
  89.         PrintLn "RULES.MSG file NOT FOUND!"
  90.         PrintLn "PLEASE NOTIFY the SYSOP!"
  91.         Newline
  92.     Endif
  93.     Wait
  94.     Goto LABEL001
  95.     :LABEL005
  96.     Cls
  97.     If (Exist(PPEPath() + "TRANSFER.MSG")) Then
  98.         DispFile PPEPath() + "TRANSFER.MSG", 0
  99.     Else
  100.         DefColor
  101.         Cls
  102.         PrintLn "TRANSFER.MSG file NOT FOUND!"
  103.         PrintLn "PLEASE NOTIFY the SYSOP!"
  104.         Newline
  105.     Endif
  106.     Wait
  107.     Goto LABEL001
  108.     :LABEL006
  109.     Cls
  110.     If (Exist(PPEPath() + "ACCOUNT.MSG")) Then
  111.         DispFile PPEPath() + "ACCOUNT.MSG", 0
  112.     Else
  113.         DefColor
  114.         Cls
  115.         PrintLn "ACCOUNT.MSG file NOT FOUND!"
  116.         PrintLn "PLEASE NOTIFY THE SYSOP!"
  117.         Newline
  118.     Endif
  119.     Wait
  120.     Goto LABEL001
  121.     :LABEL007
  122.     If (ErrCorrect()) Then
  123.         Goto LABEL012
  124.     Endif
  125.     :LABEL008
  126.     KbdChkOff
  127.     Cls
  128.     StartDisp 1
  129.     Color 12
  130.     If (Exist(PPEPath() + "GOMPGS.MSG")) Then
  131.         DispFile PPEPath() + "GOMPGS.MSG", 0
  132.     Else
  133.         Cls
  134.         DefColor
  135.         PrintLn "SORRY, MPGS OFFLINE!"
  136.         ResetDisp
  137.         Goto LABEL013
  138.     Endif
  139.     ResetDisp
  140.     Cls
  141.     INTEGER002 = Time()
  142.     DefColor
  143.     KbdChkOff
  144.     RdUNet PcbNode()
  145.     WrUNet PcbNode(), "D", UN_Name(), "USING GAME SERVER", "UN_OPER()", ""
  146.     Color 10
  147.     AnsiPos 1, 1
  148.     SPrintLn "USER in MPGS at: " + TimeAp(INTEGER002)
  149.     AnsiPos 40, 1
  150.     SPrint "USER ONLINE: "
  151.     Color 15
  152.     SPrint U_Name()
  153.     AnsiPos 1, 2
  154.     Color 10
  155.     SPrint "TIME LEFT: "
  156.     AnsiPos 46, 2
  157.     Color 10
  158.     SPrint "ALIAS: "
  159.     Color 15
  160.     SPrint U_Alias
  161.     AnsiPos 1, 3
  162.     Color 10
  163.     SPrintLn "MODEM Reports: " + STRING002
  164.     DefColor
  165.     Log "USER Entered MPGS at " + TimeAp(INTEGER002), 0 + ""
  166.     KbdFlush
  167.     Gosub LABEL010
  168.     :LABEL009
  169.     STRING004 = Upper(MInkey())
  170.     STRING005 = Upper(KInkey())
  171.     While ((STRING004 == "") && (STRING005 == "")) Do
  172.         Color 14
  173.         AnsiPos 12, 2
  174.         SPrint Left(String(MinLeft()) + "   ", 4)
  175.         DefColor
  176.         Goto LABEL009
  177.     EndWhile
  178.     If (STRING004 == Chr(32)) Then
  179.         Gosub LABEL010
  180.         Goto LABEL009
  181.     ElseIf (STRING005 == "~") Then
  182.         Goto LABEL011
  183.     Else
  184.         Select Case (STRING004)
  185.             Case Chr(13)
  186.                 Goto LABEL011
  187.             Case Chr(10)
  188.                 Goto LABEL011
  189.             Endif
  190.     End Select
  191.     Goto LABEL009
  192.     :LABEL010
  193.     Sound 2000
  194.     Delay 1
  195.     Sound 0
  196.     Return
  197.     :LABEL011
  198.     INTEGER003 = Time()
  199.     INTEGER001 = INTEGER003 - INTEGER002
  200.     INTEGER004 = Hour(INTEGER001)
  201.     If (INTEGER004 == 0) Then
  202.         STRING006 = "00:"
  203.     Endif
  204.     If (INTEGER004 <= 9) Then
  205.         STRING006 = Left("0" + String(INTEGER004), 2) + ":"
  206.     Else
  207.         STRING006 = String(INTEGER004) + ":"
  208.     Endif
  209.     INTEGER005 = Min(INTEGER001)
  210.     If (INTEGER005 == 0) Then
  211.         STRING007 = "00:"
  212.     Endif
  213.     If (INTEGER005 <= 9) Then
  214.         STRING007 = "0" + String(INTEGER005) + ":"
  215.     Else
  216.         STRING007 = String(INTEGER005) + ":"
  217.     Endif
  218.     INTEGER006 = Sec(INTEGER001)
  219.     If (INTEGER006 <= 9) Then
  220.         STRING008 = "0" + String(INTEGER006)
  221.     Else
  222.         STRING008 = String(INTEGER006)
  223.     Endif
  224.     STRING001 = STRING006 + STRING007 + STRING008
  225.     Log "USER Exited  MPGS at " + TimeAp(Time()), 0 + ""
  226.     DefColor
  227.     Cls
  228.     KbdChkOn
  229.     PrintLn "@X08 ┌────────────────────────────────────────────────────────────────────────────┐"
  230.     PrintLn "@X08 │  @X0FTHANK YOU FOR USING THE:                                                  @X08│"
  231.     PrintLn "@X08 │                                                                            @X08│"
  232.     PrintLn "@X08 │  @X07█████@X08╗  @X07██████@X08╗   @X07██████@X08╗ @X07██@X08╗     @X07███@X08╗   @X07███@X08╗ @X07██████@X08╗   @X07██████@X08╗  @X07███████@X08╗ │"
  233.     PrintLn "@X08 │ @X07██@X08╔══@X07██@X08╗ @X07██@X08╔══@X07██@X08╗ @X07██@X08╔════╝ @X07██@X08║     @X07████@X08╗ @X07████@X08║ @X07██@X08╔══@X07██@X08╗ @X07██@X08╔════╝  @X07██@X08╔════╝ │"
  234.     PrintLn "@X08 │ @X07███████@X08║ @X07██████@X08╔╝ @X07██@X08║      @X07██@X08║     @X07██@X08╔@X07████@X08╔@X07██@X08║ @X07██████@X08╔╝ @X07██@X08║  @X07███@X08╗ @X07███████@X08╗ │"
  235.     PrintLn "@X08 │ @X07██@X08╔══@X07██@X08║ @X07██@X08╔═══╝  @X07██@X08║      @X07██@X08║     @X07██@X08║╚@X07██@X08╔╝@X07██@X08║ @X07██@X08╔═══╝  @X07██@X08║   @X07██@X08║ ╚════@X07██@X08║ │"
  236.     PrintLn "@X08 │ @X07██@X08║  @X07██@X08║ @X07██@X08║      ╚@X07██████@X08╗ @X07██@X08║     @X07██@X08║ ╚═╝ @X07██@X08║ @X07██@X08║      ╚@X07██████@X08╔╝ @X07███████@X08║ │"
  237.     PrintLn "@X08 │ ╚═╝  ╚═╝ ╚═╝       ╚═════╝ ╚═╝     ╚═╝     ╚═╝ ╚═╝       ╚═════╝  ╚══════╝ @X08│"
  238.     PrintLn "@X08 │ MultiPlayer Game Server            (C) Applied Personal Computing, Inc.    @X08│"
  239.     PrintLn "@X08 │                                                                            @X08│"
  240.     PrintLn "@X08 │   @X0FTime Used This Session : @X0E" + STRING001 + "@X08                                        @X08│"
  241.     PrintLn "@X08 └────────────────────────────────────────────────────────────────────────────┘"
  242.     Goto LABEL013
  243.     :LABEL012
  244.     Cls
  245.     Beep
  246.     Beep
  247.     PrintLn "@X0CLOCAL CONNECT or ERROR CORRECTION DETECTED!"
  248.     PrintLn "ACCESS TO THE MPGS DENIED!"
  249.     :LABEL013
  250.     End
  251.  
  252. ;------------------------------------------------------------------------------
  253. ;
  254. ; Usage report (before postprocessing)
  255. ;
  256. ; ■ Statements used :
  257. ;
  258. ;    2       End
  259. ;    14      Cls
  260. ;    4       Wait
  261. ;    8       Color 
  262. ;    66      Goto 
  263. ;    19      Let 
  264. ;    1       Print 
  265. ;    26      PrintLn 
  266. ;    25      If 
  267. ;    6       DispFile 
  268. ;    2       ResetDisp
  269. ;    1       StartDisp 
  270. ;    1       GetUser
  271. ;    9       DefColor
  272. ;    2       Log 
  273. ;    2       Gosub 
  274. ;    1       Return
  275. ;    1       Delay 
  276. ;    4       Newline
  277. ;    2       Beep
  278. ;    1       KbdChkOn
  279. ;    2       KbdChkOff
  280. ;    1       RdUNet 
  281. ;    1       WrUNet 
  282. ;    6       AnsiPos 
  283. ;    2       Sound 
  284. ;    6       SPrint 
  285. ;    2       SPrintLn 
  286. ;    1       KbdFlush
  287. ;
  288. ;
  289. ; ■ Functions used :
  290. ;
  291. ;    32      +
  292. ;    1       -
  293. ;    16      ==
  294. ;    3       <=
  295. ;    25      !
  296. ;    1       &&
  297. ;    3       Upper()
  298. ;    2       Left()
  299. ;    3       Chr()
  300. ;    1       InStr()
  301. ;    3       Time()
  302. ;    1       U_Name()
  303. ;    1       Hour()
  304. ;    1       Min()
  305. ;    1       Sec()
  306. ;    3       TimeAp()
  307. ;    1       Inkey()
  308. ;    7       String()
  309. ;    12      PPEPath()
  310. ;    2       PcbNode()
  311. ;    1       UN_Name()
  312. ;    1       MinLeft()
  313. ;    6       Exist()
  314. ;    1       KInkey()
  315. ;    1       MInkey()
  316. ;    1       Modem()
  317. ;    1       ErrCorrect()
  318. ;
  319. ;------------------------------------------------------------------------------
  320. ;
  321. ; Analysis flags : No flag
  322. ;
  323. ;------------------------------------------------------------------------------
  324. ;
  325. ; Postprocessing report
  326. ;
  327. ;    0       For/Next
  328. ;    2       While/EndWhile
  329. ;    14      If/Then or If/Then/Else
  330. ;    2       Select Case
  331. ;
  332. ;------------------------------------------------------------------------------
  333. ;                 AEGiS Corp - Break the routines, code against the machines!
  334. ;------------------------------------------------------------------------------
  335.